home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / CLISRV / BOOKSALE / CLIENT / BOOK_CLI.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-10-29  |  860 b   |  32 lines
  1. Attribute VB_Name = "ClientMain"
  2. Option Explicit
  3.  
  4. Global goBookSaleSvrInst As Object    ' Object ref to BookSale Server Business Object
  5. Global goStatusPanel As Object        ' Object ref to Panel1 of Status bar.
  6.  
  7. Global gstrPubRevenue As String
  8. Global gstrAuthorRoyalty As String
  9. Global gstrDBName As String           ' Holds a string that refers to the global database
  10.  
  11. Global gDB As Database                ' Object ref to the global database
  12. Global gSn As Recordset
  13.  
  14. Sub Main()
  15.  
  16. On Error GoTo MainError
  17.  
  18.   'This assumes that the booksale database is in current directory.  Refer to the
  19.   'form_load code for frmRevenue to see how this is handled.
  20.   gstrDBName = "booksale.mdb"
  21.  
  22.   Load frmRevenue
  23.   
  24.   Exit Sub
  25.   
  26. MainError:
  27.   MsgBox Error$ & " - " & Str$(Err), vbCritical, "BookSale Client Startup Error"
  28.   Exit Sub
  29.  
  30. End Sub
  31.  
  32.